home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / 4dos / 4dos_btm.zip / GO_C.BTM < prev    next >
Text File  |  1992-04-09  |  2KB  |  143 lines
  1. : *** go_C.btm *** C programming configuration * rhc april 92 * (v 3.3)
  2.  
  3.  
  4. iff      %1  == ?  then
  5.   goto SYNTAX
  6. elseiff  %1! ne !  then
  7.   if  %1 ne r  goto ERROR
  8. endiff
  9. goto CONT
  10.  
  11.  
  12. :SYNTAX  
  13.  
  14. gosub *_row ~ screen %row% 0
  15. text
  16.      syntax:  go_C  [r]
  17.  
  18.                     (r: Restore OS configuration)
  19. endtext
  20. goto END
  21.  
  22.  
  23. :CONT
  24.  
  25. gosub *_row ~ screen %row% 1
  26.  
  27. iff  %cfg% ne C_Programming  then
  28.   iff  %1! == !  then
  29.     input /w2 Which sub-dir today, mate [MSC, RHC, {WKG}] ? %%s_dir
  30.     echo  
  31.  
  32.     set o_cfg=%cfg%
  33.     set   cfg=C_Programming ~ goto C_CFG
  34.   else
  35.     echo You cannot RESET from %cfg%, mate !!
  36.     goto END
  37.   endiff
  38. else
  39.   iff  %1! == !  then
  40.     echo Your environment is already set for %cfg%, mate !!
  41.     goto END
  42.   else
  43.     set cfg=%o_cfg% ~ goto OS_CFG
  44.   endiff
  45. endiff
  46.  
  47.  
  48. :C_CFG
  49.  
  50. pushd d:
  51.  
  52. echo  Setting your environment for %cfg% ... ~ echo  
  53.  
  54. set helpfiles=d:\c\hlp\*.hlp
  55. set   include=d:\c\inc
  56. set       lib=e:\c;d:\c\lib\tbx;d:\c\lib\swr;d:\c\lib
  57.  
  58. path d:\c\rel;d:\c\r_p;%pth%
  59.  
  60. iff  exist e:\bat\*.*  then
  61.   md e:\c
  62.   path e:\c;%path%
  63.  
  64.   copy /q d:\c\lib\?libce.lib     e:\c
  65.   copy /q d:\c\lib\tbx\?video.lib e:\c
  66.   copy /q d:\c\r_p\link.exe       e:\c
  67.   copy /q d:\c\util\*.btm         e:\c
  68. else
  69.   echo  You do NOT have a RAM disk, mate !! ~ echo  
  70. endiff
  71.  
  72. echo  PATH modified. ~ echo  
  73.  
  74. iff  %s_dir%! ne ! .and. isdir \c\prg\%s_dir%  then
  75.   cd \c\prg\%s_dir%
  76. else
  77.   cd \c\prg\wkg
  78. endiff
  79.  
  80. echo  Your environment is now set for %cfg%, mate !
  81. goto OUT
  82.  
  83.  
  84. :OS_CFG
  85.  
  86. cls ~ screen 2 1
  87. echo Resetting your environment for %cfg% ... ~ echo  
  88.  
  89. path %pth%
  90. echo  PATH reset. ~ echo  
  91.  
  92. delay 2
  93.  
  94. for %xt in (exe obj)  if  exist *.%xt  select *del /q (*.%xt)
  95. echo  
  96.  
  97. iff  exist e:\c\*.*  then
  98.   *del /q e:\c\*.btm
  99.   *del /q e:\c\*.lib
  100.   *del /q e:\c\*.obj  >&>  nul
  101.   *del /q e:\c\l*.*
  102.  
  103.   rd e:\c  >  nul
  104. endiff
  105.  
  106.  
  107. set helpfiles=
  108. set   include=
  109. set       lib=
  110. set     o_cfg=
  111. set     s_dir=
  112.  
  113. popd
  114.  
  115. echo  Your environment is now reset for %cfg%, mate !
  116. goto OUT
  117.  
  118.  
  119. :ERROR
  120.  
  121. gosub *_row ~ screen %row% 1
  122. echo Try again, mate!  This programme has the syntax described below.
  123. goto SYNTAX
  124.  
  125.  
  126. :*_row
  127. set row=%@eval[%_row + 1]
  128.  
  129. iff  %row% ge %_rows  then
  130.   cls
  131.   set row=2
  132.   goto *_row
  133. endiff
  134. return
  135.  
  136.  
  137. :OUT
  138.  
  139.  
  140. :END
  141.  
  142. set row=
  143.